home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_009_19xx_-_de_Side_B.d64 / dots v2.0_rof (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  112 lines
  1. 1 rem:dots v2.0/rockford-freeware 1993
  2. 2 goto 70
  3. 5 poke53281,6 :poke53280,6:
  4. 7 print"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
  5. 10 print""spc(22)"dots v2.0/alex zop"
  6. 15 print"[155]                      neue, verbesserte"
  7. 16 print"                      version/28.12.1993"
  8. 20 print"[154]                        joystick oder"
  9. 22 print"                        tastatur (j/t)";
  10. 25 geta$:ifa$<>"j"anda$<>"t"then25
  11. 26 printa$
  12. 30 jk=-1:ifa$="t"thenjk=0
  13. 39 print"                         c64-staerke"
  14. 40 input"                        (0-10)";sk:ifsk<0orsk>10then40
  15. 50 sk=(10-sk)/10:ts=200-200*sk:dt=ts+25
  16. 60 sc=1024:co=13*4096+8*256
  17. 61 goto 90
  18. 70 print"[147]":fori=1to10:print"[144] [209] [209] [209] [209] [209] [209] [209] [209] [209] [209]":next
  19. 80 ys=0:vs=0:print" dein punktestand:"ys"
  20. 81 [153]" ausbeute des c64:"vs"
  21. 82 goto 5
  22. 90 deffnbx(lc)=(peek(lc+40)<>32)+(peek(lc+1)<>32)+(peek(lc-40)<>32)+(peek(lc-1)<>32)
  23. 100 deffnvh(lc)=lc<>2*int(lc/2)
  24. 110 sl=sc+450:cl=co+450:x=10:y=11:cc=peek(sl):cr=peek(cl)
  25. 120 pokesl,160:pokecl,7:f=0
  26. 130 ifjkthen150
  27. 140 gosub930:goto160
  28. 150 gosub860:ifpc=0then150
  29. 160 x=x+j:y=y+k:ifx<1orx>19ory<1ory>19thenx=x-j:y=y-k:goto130
  30. 170 ifpc=99then200
  31. 180 pokesl,cc:pokecl,cr:sl=sl+pc:cl=cl+pc:cc=peek(sl):pokesl,160
  32. 190 cr=peek(cl):pokecl,7:goto130
  33. 200 l=(peek(sl+1)=81)+(peek(sl-1)=81)+(peek(sl+40)=81)+(peek(sl-40)=81)
  34. 210 ifl+(cc=32)=-3then230
  35. 220 i=128:gosub710:goto130
  36. 230 wh=1:ml=sl:gosub650:ifnotfnvh(sl)then280
  37. 240 ifx>1andfnbx(sl-1)=-4thenbx=sl-1:gosub720:f=-1
  38. 250 ifx<19andfnbx(sl+1)=-4thenbx=sl+1:gosub720:goto110
  39. 260 iffthen110
  40. 270 goto310
  41. 280 ify>1andfnbx(sl-40)=-4thenbx=sl-40:gosub720:f=-1
  42. 290 ify<19andfnbx(sl+40)=-4thenbx=sl+40:gosub720:goto110
  43. 300 iffthen110
  44. 310 wh=2:f=0:cn=0:ifrnd(0)<skthen390
  45. 320 fori=80to720step80:forj=2to18step2:k=sc+i+j
  46. 330 ifpeek(k)=32andfnbx(k)=-3then350
  47. 340 nextj,i:goto390
  48. 350 i=k:ifpeek(i-40)=32theni=i-40:goto540
  49. 360 ifpeek(i+40)=32theni=i+40:goto540
  50. 370 ifpeek(i-1)<>32theni=i+1:goto600
  51. 380 ifpeek(i+1)<>32theni=i-1:goto600
  52. 390 i=int(int(rnd(0)*20)*40+21*rnd(0)+sc+41):cn=cn+1:ifpeek(i)<>32then390
  53. 400 ifnot((peek(i+1)=81andpeek(i-1)=81)or(peek(i+40)=81andpeek(i-40)=81))then390
  54. 410 ifsk>.6orcn>tsthen470
  55. 420 iffnvh(i)then450
  56. 430 iffnbx(i-40)=-2orfnbx(i+40)=-2then390
  57. 440 goto540
  58. 450 iffnbx(i-1)=-2orfnbx(i+1)=-2then390
  59. 460 goto600
  60. 470 iffnvh(i)then510
  61. 480 ifsk>.6orcn>dthen540
  62. 490 iffnbx(i+40)=-2andfnbx(i-40)=-2then390
  63. 500 goto540
  64. 510 ifsk>.6orcn>dtthen600
  65. 520 iffnbx(i+1)=-2andfnbx(i-1)=-2then390
  66. 530 goto600
  67. 540 ml=i:gosub650
  68. 550 iffnbx(ml-40)=-4thenbx=ml-40:gosub720:f=-1
  69. 560 iffnbx(ml+40)=-4thenbx=ml+40:gosub720:goto310
  70. 570 iffthen310
  71. 580 goto110
  72. 590 ifnot(peek(i-40)=81andpeek(i+40)=81)then390
  73. 600 ml=i:gosub650
  74. 610 iffnbx(ml-1)=-4thenbx=ml-1:gosub720:f=-1
  75. 620 iffnbx(ml+1)=-4thenbx=ml+1:gosub720:goto310
  76. 630 iffthen310
  77. 640 goto110
  78. 650 cl=co+ml-sc
  79. 660 pokeml,67
  80. 670 iffnvh(ml)thenpokeml,93
  81. 680 i=185:ifwh=2theni=150
  82. 690 forj=1towh:pokecl,0:gosub710:pokecl,1
  83. 700 forl=1to200:next:pokecl,0:next
  84. 710 fork=1to200:next:return
  85. 720 ys=ys+1:j=3:i=200:cl=co+bx-sc:ifwh=2thenj=2:i=150:ys=ys-1:vs=vs+1
  86. 730 pokebx,160:pokecl,1
  87. 740 forl=1to3:pokecl,j:gosub710:pokecl,1:fork=1to200:next:i=i+18:pokecl,j:next
  88. 750 print" dein punktestand:"ys"
  89. 751 [153]" ausbeute des c64:"vs"
  90. 760 ifys+vs<81thenreturn
  91. 770 print"":ifys>vsthen800
  92. 780 print"[144] du hast verloren...  "
  93. 790 goto850
  94. 800 print"du hast gewonnen!"
  95. 850 end
  96. 860 j=0:k=0:pc=0
  97. 870 i=peek(56321)
  98. 880 if(iand1)=0thenpc=-40:k=-1:return
  99. 885 if(iand8)=0thenj=1:pc=1:return
  100. 890 if(iand2)=0thenpc=40:k=1:return
  101. 900 if(iand4)=0thenpc=-1:j=-1:return
  102. 910 if(iand16)=0thenpc=99
  103. 920 return
  104. 930 j=0:k=0:pc=0
  105. 940 geta$:ifa$=""then940
  106. 950 ifa$="[145]"thenpc=-40:k=-1:return
  107. 960 ifa$=""thenj=1:pc=1:return
  108. 970 ifa$=""thenk=1:pc=40:return
  109. 980 ifa$="[157]"thenj=-1:pc=-1:return
  110. 990 ifasc(a$)=13thenpc=99
  111. 1000 return
  112.